home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 20 / macformat_20.iso / mac / Shareware / Desarrolladores / Sprite Animation Toolkit 2.3.8 / Tutorial ƒ / Assignment2.p < prev    next >
Text File  |  1995-01-16  |  566b  |  30 lines
  1. program Assignment2;
  2.     uses
  3. {$ifc UNDEFINED THINK_PASCAL}
  4.         Types, QuickDraw, Menus, Windows, TextEdit, Fonts, Dialogs, Memory, OSEvents, {}
  5. {$endc}
  6.         SAT;
  7.  
  8.     var
  9.         ignore: SpritePtr;
  10.  
  11.     procedure HandleSprite (me: SpritePtr);
  12.     begin
  13.     end; {HandleSprite}
  14.  
  15.     procedure SetupSprite (me: SpritePtr);
  16.     begin
  17.         me^.task := @HandleSprite;
  18.         me^.face := SATGetFace(128);
  19.     end; {SetupSprite}
  20.  
  21. begin
  22. {$ifc UNDEFINED THINK_PASCAL}
  23.     SATInitToolbox;
  24. {$endc}
  25.  
  26.     SATInit(128, 129, 478, 302);
  27.     ignore := SATNewSprite(0, 200, 200, @SetupSprite);
  28.     while not Button do
  29.         SATRun(true);
  30. end.